home *** CD-ROM | disk | FTP | other *** search
/ Apple Reference & Present…nuary (Partner) - Disc 1 / The Apple Reference and Presentations Library (Disc 1)(January 1994).iso / Frame Technology / US English / FrameMaker 4-68K / FrameMaker / FrameMaker.rsrc / PREC_103 < prev    next >
Text File  |  1994-06-01  |  23KB  |  305 lines
  1. % Frame PostScript Prolog for use with Macintosh Frame Products 4.0.2
  2. % Copyright (c) 1986-94 Frame Technology Corp.  All rights reserved.
  3. %%BeginProcSet: "FrameMacDict" 402 17
  4. userdict/FrameMacDict 200 dict put FrameMacDict begin systemdict/setpacking
  5. known{/fMSP currentpacking def true setpacking}if[/fM1/fM18/fM2/fM3/fM4/fM5/fM6
  6. /fM8/fM9/fMBC/fMBM/fMC/fMCD/fMCG/fMCK/fMCM/fMCl/fMCO/fMFl/fMGC/fMGL/fMGM/fMIx
  7. /fMJB/fMJC/fMJG/fMJK/fMJM/fMJR/fMJY/fMK/fML1/fMM/fMN/fMNC/fMNg/fMND/fMOx/fMPC
  8. /fMPH/fMPt/fMRC/fMS/fMSJ/fMUC/fMUM/fMUY/fMY/fMat/fMa2/fMi/fMk/fms/fmBS/fMdp
  9. /freq/sangle/sflipx/sflipy/pflipx/pflipy/xx/yy/xindex/yindex/fM1B/fM0B]{0 def}
  10. forall/fML1/languagelevel where{pop languagelevel}{1}ifelse 2 lt def/fMCl fML1{
  11. /statusdict where{pop statusdict/processcolors known{statusdict/processcolors
  12. get exec 1 gt}{F}ifelse}{F}ifelse}{T}ifelse def/FmBD{bind def}bind def/fmBx{[
  13. exch{dup/FrameMacDict eq{pop FrameMacDict}{dup type dup/arraytype eq exch
  14. /packedarraytype eq or{dup xcheck{fmBi}if}if}ifelse}forall]cvx}FmBD/fmBi{bind
  15. fmBx}FmBD/fmPU{userdict 3 1 roll fmBi put}bind def/T true def/F false def
  16. userdict/fMSuccessfull F put userdict/fMSi F put userdict/fM7 known not{
  17. userdict/fM7 0 put}if/fmXD{exch def}FmBD/FmG/gsave load def/FmR/grestore load
  18. def/fm_l/grestoreall load def/fm_v/save load def/fm_g/setgray load def/fm_r
  19. /setrgbcolor load def/fm_h/sethsbcolor load def/fm_f/fill load def/fm_e/eofill
  20. load def/fm_t/stroke load def/fm_m/imagemask load def/fm_i/image load def/fm_s
  21. /show load def/fm_a/ashow load def/fm_w/widthshow load def/fm_y/awidthshow load
  22. def/fm_k/kshow load def/fMat matrix def/fMa2 matrix def/fmSM{fMat currentmatrix
  23. pop}FmBD/fmRM{fMat setmatrix}FmBD/FmRF{currentpoint 2 copy translate 4 2 roll{
  24. -1 1 scale}if rotate neg exch neg exch translate}FmBD/fmax{2 copy lt{exch}if
  25. pop}FmBD/fmin{2 copy gt{exch}if pop}FmBD systemdict/pdfmark known{/FmPD/pdfmark
  26. load def/FmPT/fm_s load def}{/FmPD/cleartomark load def/FmPT/pop load def}
  27. ifelse/FmDC{transform fMat defaultmatrix itransform cvi exch cvi exch}FmBD/fmgS
  28. 32 array def/fMgt 0 def/fMtp 0 def/fmSG{fmgS fMgt get dup null eq{pop fmgS fMgt
  29. 10 dict dup 4 1 roll put}if 3 1 roll put}FmBD/fmGG{fMgt -1 -1{fmgS exch get dup
  30. null ne{2 copy exch known{2 copy exch get/_notdef ne{exch get dup exit}if}if}if
  31. pop}for pop}FmBD/gsave{FrameMacDict begin FmG/fMgt fMgt 1 add def fmgS fMgt get
  32. dup null eq{pop}{dup dup{pop/_notdef put dup}forall pop pop}ifelse end}fmPU
  33. /grestore{FrameMacDict begin fMgt fMtp gt{/fMgt fMgt 1 sub def}if FmR null fmCN
  34. end}fmPU/grestoreall{FrameMacDict begin/fMgt fMtp def fm_l null fmCN end}fmPU
  35. /save{FrameMacDict/fm_v get exec FrameMacDict begin/fMgt fMgt 1 add def fmgS
  36. fMgt get dup null eq{pop}{dup dup{pop/_notdef put dup}forall pop pop}ifelse
  37. /fMtp fMgt def end}fmPU/fMND F def/fMCC null fmSG/fMOP F fmSG/fMKO F fmSG/fmRY{
  38. 1 exch sub 3 1 roll 1 exch sub 3 1 roll 1 exch sub 3 1 roll 3 copy 2 copy le{
  39. pop}{exch pop}ifelse 2 copy le{pop}{exch pop}ifelse dup dup dup 6 1 roll 4 1
  40. roll 7 1 roll sub 6 1 roll sub 5 1 roll sub 4 1 roll}fmSG/fmkn{2 copy known{get
  41. T}{pop pop false}ifelse}FmBD/fmfp{exch currentfont dup/FontMatrix get exch
  42. /FontInfo fmkn{T}{currentfont/df fmkn{dup/FontInfo fmkn{3 1 roll/FontMatrix get
  43. mtx concatmatrix exch T}{pop pop pop F}ifelse}{pop pop F}ifelse}ifelse{3 -1
  44. roll fmkn{exch 0 3 1 roll dtransform neg exch pop exch pop}{pop exec}ifelse}{
  45. exec}ifelse}FmBD/fmdl{3 index 16 and 0 ne{FmG currentlinewidth 2. div dup
  46. rmoveto currentpoint newpath moveto 2 index 0 rlineto fm_t FmR}if 3 index 24
  47. and 0 ne{FmG currentrgbcolor dup 4 1 roll eq 3 1 roll eq and{1 currentgray sub
  48. setgray}{1 setgray}ifelse 2 index 0 rlineto fm_t FmR FmG 2 index 0 rlineto
  49. strokepath .24 setlinewidth fm_t FmR}{2 index 0 rlineto fm_t 0 0 moveto}ifelse}
  50. FmBD/FmUl{FmG/fM2 fmXD currentpoint/UnderlineThickness{fM2 15 div}fmfp abs dup
  51. setlinewidth/fM1 fmXD 4 index 1 and 0 ne{newpath 2 copy moveto 0
  52. /UnderlinePosition{fM2 10 div neg}fmfp neg rmoveto fmdl}if 4 index 2 and 0 ne{
  53. newpath 2 copy moveto 0/XHeight{FmG newpath 0 0 moveto(x)F charpath flattenpath
  54. pathbbox 4 -1 roll pop pop pop FmR dup 0 eq{pop fM2 2. mul 3. div neg}if}fmfp
  55. 2. div rmoveto fmdl}if 4 index 4 and 0 ne{newpath 2 copy moveto 0/CapHeight{FmG
  56. newpath 0 0 moveto(H)F charpath flattenpath pathbbox 4 -1 roll pop pop pop FmR
  57. dup 0 eq{pop fM2 3. mul 4. div neg}if}fmfp fM1 sub rmoveto fmdl}if pop pop pop
  58. pop pop FmR}FmBD/FmTx{/fM3 fmXD/fM2 fmXD/fM1 fmXD 0 32 fM1 fM3 stringwidth pop
  59. fM2 sub fM3 length div sub 0 fM3 fm_y}FmBD/fMN 0 def/fMC 1 def/fMM 2 def/fMY 3
  60. def/fMK 4 def/fMS 5 def/fMNg 0 currenttransfer exec .5 gt def/fMCM fMN def/fMJK
  61. 0 def/fMJY 0 def/fMJM 0 def/fMJC 0 def/fMJR 1 def/fMJG 1 def/fMJB 1 def/fMCG 1
  62. def/fMPt null def/fMCK[0 0 0 1 0 0 0]def/fmCH{fML1{14 dict dup begin fMCl{
  63. /HalftoneType 2 def currentcolorscreen[/GraySpotFunction/GrayAngle
  64. /GrayFrequency/BlueSpotFunction/BlueAngle/BlueFrequency/GreenSpotFunction
  65. /GreenAngle/GreenFrequency/RedSpotFunction/RedAngle/RedFrequency]{exch def}
  66. forall}{/HalftoneType 1 def currentscreen[/SpotFunction/Angle/Frequency]{exch
  67. def}forall}ifelse statusdict/checkscreen known{statusdict/accuratescreens get
  68. exec}{F}ifelse/AccurateScreens exch def end}{currenthalftone}ifelse}FmBD/fmSH{
  69. fML1{begin statusdict/checkscreen known{currentdict/AccurateScreens known{
  70. AccurateScreens}{F}ifelse statusdict/setaccuratescreens get exec}if
  71. HalftoneType 1 eq{Frequency Angle currentdict/SpotFunction get setscreen}{
  72. HalftoneType 2 eq{fMCl{RedFrequency RedAngle currentdict/RedSpotFunction get
  73. GreenFrequency GreenAngle currentdict/GreenSpotFunction get BlueFrequency
  74. BlueAngle currentdict/BlueSpotFunction get GrayFrequency GrayAngle currentdict
  75. /GraySpotFunction get setcolorscreen}{GrayFrequency GrayAngle currentdict
  76. /GraySpotFunction get setscreen}ifelse}if}ifelse end}{sethalftone}ifelse}FmBD
  77. /FmCS{14 dict begin/HalftoneType 2 def/AccurateScreens exch def
  78. /GraySpotFunction exch def/GrayAngle exch def/GrayFrequency exch def
  79. /BlueSpotFunction exch def/BlueAngle exch def/BlueFrequency exch def
  80. /GreenSpotFunction exch def/GreenAngle exch def/GreenFrequency exch def
  81. /RedSpotFunction exch def/RedAngle exch def/RedFrequency exch def currentdict
  82. dup end/fMPH exch def fmSH}FmBD/FmSS{5 dict begin/HalftoneType 1 def
  83. /AccurateScreens exch def/SpotFunction exch def/Angle exch def/Frequency exch
  84. def currentdict dup end/fMPH exch def fmSH}FmBD/fMPH fmCH def/fmcp{/FmPr2 exch
  85. cvlit def/FmPr1 exch cvlit def/FmPrn FmPr1 length FmPr2 length add array def
  86. FmPrn 0 FmPr1 putinterval FmPrn FmPr1 length FmPr2 putinterval FmPrn cvx}FmBD
  87. /fmEp{sub dup 0 lt{neg}if .001 le}FmBD/fmQC{2 copy 0 get exch 0 get fmEp{2 copy
  88. 1 get exch 1 get fmEp{2 copy 2 get exch 2 get fmEp{3 get exch 3 get fmEp}{pop
  89. pop F}ifelse}{pop pop F}ifelse}{pop pop F}ifelse}FmBD/fmQR{2 copy 4 get exch 0
  90. get fmEp{2 copy 5 get exch 1 get fmEp{6 get exch 2 get fmEp}{pop pop F}ifelse}{
  91. pop pop F}ifelse}FmBD/FmSC{/fMCM fmXD/fMJB fmXD/fMJG fmXD/fMJR fmXD/fMJK fmXD
  92. /fMJY fmXD/fMJM fmXD/fMJC fmXD fmCC}FmBD/FmSP{/fMCM fmXD fmCC}FmBD
  93. /FrameSetSepColors{FrameMacDict begin[exch 1 add 1 roll]/fMSC exch def end}fmBi
  94. def/fmLC{fMSC{exch dup 3 -1 roll fmQC{pop T exit}if}forall dup T ne{pop F}if}
  95. FmBD/fmLR{fMSC{exch dup 3 -1 roll fmQR{pop T exit}if}forall dup T ne{pop F}if}
  96. FmBD/fmLM{fMSC{exch dup 3 -1 roll dup 7 get 3 -1 roll eq{exch pop T exit}{pop}
  97. ifelse}forall dup T ne{pop F}if}FmBD/fmCN{fMND F fMCM fMN ne{/fMOP fmGG{/fMKO
  98. fmGG{pop T}if}if}if dup/fMND exch def{pop pop}{exch dup null ne{exch pop dup
  99. type dup/integertype eq exch/realtype eq or{fm_g}{setcolor}ifelse}{pop{1 fm_g}
  100. if}ifelse}ifelse}FmBD/fill{FrameMacDict begin fMND{newpath}{fm_f}ifelse end}
  101. fmPU/eofill{FrameMacDict begin fMND{newpath}{fm_e}ifelse end}fmPU/stroke{
  102. FrameMacDict begin fMND{newpath}{fm_t}ifelse end}fmPU/imagemask{FrameMacDict
  103. begin fMND{FmG nulldevive fm_m FmR}{fm_m}ifelse end}fmPU/show{FrameMacDict
  104. begin fMND{stringwidth rmoveto}{fm_s}ifelse end}fmPU/fmNX{load fMND{FmG fMa2
  105. currentmatrix end nulldevice setmatrix exec currentpoint FrameMacDict/FmR get
  106. exec moveto}{end exec}ifelse}fmBi def/ashow{FrameMacDict begin/fm_a fmNX}fmPU
  107. /widthshow{FrameMacDict begin/fm_w fmNX}fmPU/awidthshow{FrameMacDict begin/fm_y
  108. fmNX}fmPU/kshow{FrameMacDict begin/RealKshow fmNX}fmPU/image{FrameMacDict begin
  109. fMCM fMN ne fMCM fMK ne and{FmG/fMOP fmGG{nulldevice}{fMNg{{pop 0}}{{pop 1}}
  110. ifelse settransfer}ifelse/fm_i load end exec FmR}{/fm_i load end exec}ifelse}
  111. fmPU/fMGM T def/fMBM F def/setcustomcolor where{pop}{/findcmykcustomcolor{0 0 0
  112. 4 -1 roll 8 array astore}fmPU/findrgbcustomcolor{FrameMacDict begin 4 1 roll 3
  113. copy/fmRY fmGG exec 8 4 roll 4 -1 roll 8 array astore end}fmPU
  114. /findgraycustomcolor{0 0 0 exch 1 exch sub exch findcmykcustomcolor}fmPU
  115. /findhsbcustomcolor{FrameMacDict begin 4 1 roll gsave fm_h currentrgbcolor
  116. grestore 4 -1 roll findrgbcustomcolor end}fmPU/setcustomcolor{FrameMacDict
  117. begin dup type dup/integertype eq exch/realtype eq or not{1.0}if exch dup/fMCC
  118. exch fmSG/fMBM F def fMCM fMN eq{0 4 getinterval aload pop 4{4 index mul 4 1
  119. roll}repeat fmSK pop}{dup{7 get}stopped{pop 4 get}if fmLM{exch pop 0 4
  120. getinterval aload pop fMCM fMS eq{fMJK eq exch fMJY eq and exch fMJM eq and
  121. exch fMJC eq and{1 exch sub F}{pop 1 T}ifelse}{5{pop}repeat 1 T}ifelse}{fMCM
  122. fMK eq{3 get F}{fMCM fMY eq{2 get F}{fMCM fMM eq{1 get F}{fMCM fMC eq{0 get F}{
  123. pop 0 T}ifelse}ifelse}ifelse}ifelse 3 1 roll mul 1 exch sub exch}ifelse/fMKO
  124. exch fmSG fmCN}ifelse end}fmPU/setoverprint{FrameMacDict begin/fMOP exch fmSG
  125. null fmCN end}fmPU/currentoverprint{FrameMacDict begin/fMOP fmGG end}fmPU}
  126. ifelse/fmCC{fMCM fMN eq{fMGM fML1 or not{[/Pattern[/DeviceCMYK]]setcolorspace
  127. fMCK 0 4 getinterval aload pop fMPt setcolor}{fMCK 3 get 1.0 ge{fMCG fm_g}{fMCl
  128. fMGM and{0 1 3{fMCK exch get 1 fMCG sub mul}for fmSK}{4 1 6{fMCK exch get fMGM{
  129. 1 exch sub 1 fMCG sub mul 1 exch sub}{1.0 lt{fMCG}{1}ifelse}ifelse}for fm_r}
  130. ifelse}ifelse}ifelse null/fMKO F fmSG}{fMBM{fMCG F}{fMCK 0 4 getinterval aload
  131. fmLC{fMCM fMS eq{fMJK eq exch fMJY eq and exch fMJM eq and exch fMJC eq and{
  132. fMCG F}{1 T}ifelse}{pop pop pop pop 1 T}ifelse}{fMCM fMK eq{fMCG 1.0 exch sub
  133. mul 1.0 exch sub 4 1 roll pop pop pop F}{fMCM fMY eq{pop fMCG 1.0 exch sub mul
  134. 1.0 exch sub 3 1 roll pop pop F}{fMCM fMM eq{pop pop fMCG 1.0 exch sub mul 1.0
  135. exch sub exch pop F}{fMCM fMC eq{pop pop pop fMCG 1.0 exch sub mul 1.0 exch sub
  136. F}{pop pop pop pop 1 T}ifelse}ifelse}ifelse}ifelse}ifelse}ifelse/fMKO exch fmSG
  137. fMGM fML1 or not{[/Pattern[/DeviceGray]]setcolorspace fMPt}{fMGM not fML1 and{
  138. dup 1 lt{pop fMCG}if}if}ifelse}ifelse fmCN}FmBD/setgray{FrameMacDict begin fMCM
  139. fMN eq{F}{fMCM fMK eq{F}{fMCM fMS eq fMJR 0 eq and fMJG 0 eq and fMJB 0 eq and{
  140. F}{pop 1 T}ifelse}ifelse}ifelse/fMKO exch fmSG fmCN end}fmPU/setrgbcolor{
  141. FrameMacDict begin/fMBM F def fMCM fMN eq{fm_r}{3 copy[4 1 roll]fmLR{fMCM fMS
  142. eq{fMJB eq exch fMJG eq and exch fMJR eq and{0 F}{1 T}ifelse}{pop pop pop 1 T}
  143. ifelse}{/fmRY fmGG exec fMCM fMK eq{1.0 exch sub 4 1 roll pop pop pop F}{fMCM
  144. fMY eq{pop 1.0 exch sub 3 1 roll pop pop F}{fMCM fMM eq{pop pop 1.0 exch sub
  145. exch pop F}{fMCM fMC eq{pop pop pop 1.0 exch sub F}{pop pop pop pop 1 T}ifelse}
  146. ifelse}ifelse}ifelse}ifelse/fMKO exch fmSG fmCN}ifelse end}fmPU/sethsbcolor{
  147. FrameMacDict begin fMCM fMN eq{fm_h}{fm_h currentrgbcolor setrgbcolor}ifelse
  148. end}fmPU/setcmykcolor where{pop/fmSK/setcmykcolor load def}{/fmSK{4 1 roll 3{3
  149. index add 0 fmax 1 fmin 1 exch sub 3 1 roll}repeat fm_r pop}FmBD}ifelse
  150. /currentcmykcolor where{pop}{/currentcmykcolor{FrameMacDict begin
  151. currentrgbcolor/fmRY fmGG exec end}fmPU}ifelse/setcmykcolor{FrameMacDict begin
  152. /fMBM F def fMCM fMN eq{fmSK}{4 copy[5 1 roll]fmLC{fMCM fMS eq{fMJK eq exch
  153. fMJY eq and exch fMJM eq and exch fMJC eq and{0 F}{1 T}ifelse}{pop pop pop pop
  154. 1 T}ifelse}{fMCM fMK eq{1.0 exch sub 4 1 roll pop pop pop F}{fMCM fMY eq{pop
  155. 1.0 exch sub 3 1 roll pop pop F}{fMCM fMM eq{pop pop 1.0 exch sub exch pop F}{
  156. fMCM fMC eq{pop pop pop 1.0 exch sub F}{pop pop pop pop 1 T}ifelse}ifelse}
  157. ifelse}ifelse}ifelse/fMKO exch fmSG fmCN}ifelse end}fmPU/fMFl[0 .1 .3 .5 .7 .9
  158. .97 1<0f1e3c78f0e1c387><0f87c3e1f0783c1e><cccccccccccccccc><ffff0000ffff0000><
  159. 8142241818244281><0102040810204080><8040201008040201>]def fML1{/patScreenDict 7
  160. dict dup begin<0f1e3c78f0e1c387>[45{pop}{exch pop}.5 2 sqrt]FmBD<0f87c3e1f0783c
  161. 1e>[135{pop}{exch pop}.5 2 sqrt]FmBD<cccccccccccccccc>[0{pop}dup .5 2]FmBD<ffff
  162. 0000ffff0000>[90{pop}dup .5 2]FmBD<8142241818244281>[45{2 copy lt{exch}if pop}
  163. dup .75 2 sqrt]FmBD<0102040810204080>[45{pop}{exch pop}.875 2 sqrt]FmBD<804020
  164. 1008040201>[135{pop}{exch pop}.875 2 sqrt]FmBD end def}{/fMPP 5 dict dup begin<
  165. 0f87c3e1f0783c1e>{3 setlinewidth -1 -1 moveto 9 9 lineto fm_t 4 -4 moveto 12 4
  166. lineto fm_t -4 4 moveto 4 12 lineto fm_t}FmBD<0f1e3c78f0e1c387>{3 setlinewidth
  167. -1 9 moveto 9 -1 lineto fm_t -4 4 moveto 4 -4 lineto fm_t 4 12 moveto 12 4
  168. lineto fm_t}FmBD<8142241818244281>{1 setlinewidth -1 9 moveto 9 -1 lineto fm_t
  169. -1 -1 moveto 9 9 lineto fm_t}FmBD<8040201008040201>{1 setlinewidth -1 -1 moveto
  170. 9 9 lineto fm_t 4 -4 moveto 12 4 lineto fm_t -4 4 moveto 4 12 lineto fm_t}FmBD<
  171. 0102040810204080>{1 setlinewidth -1 9 moveto 9 -1 lineto fm_t -4 4 moveto 4 -4
  172. lineto fm_t 4 12 moveto 12 4 lineto fm_t}FmBD end def/fMPD 15 dict dup begin
  173. /PatternType 1 def/PaintType 2 def/TilingType 3 def/BBox[0 0 8 8]def/XStep 8
  174. def/YStep 8 def/PaintProc{begin fMPP fmBS known{fMPP fmBS get exec}{8 8 T[1 0 0
  175. -1 0 8]fmBS fm_m}ifelse end}FmBD end def}ifelse/fMdp 72 0 fMat defaultmatrix
  176. dtransform dup mul exch dup mul add sqrt def/freq fMdp dup 72 div round dup 0
  177. eq{pop 1}if 8 mul div def/sangle 1 0 fMat defaultmatrix dtransform exch atan
  178. def sangle fMa2 rotate fMat fMa2 concatmatrix dup 0 get/sflipx exch def 3 get
  179. /sflipy exch def fML1{/fmgF{fMa2 exch get mul 0 lt{-1}{1}ifelse}FmBD}if/fmPM
  180. fML1{{dup patScreenDict exch known{patScreenDict exch get aload pop freq mul 5
  181. 2 roll fMa2 currentmatrix 1 get 0 ne{3 -1 roll 90 add 3 1 roll sflipx 1 fmgF
  182. sflipy 2 fmgF mul}{sflipx 0 fmgF sflipy 3 fmgF neg mul}ifelse 0 lt{exch pop}{
  183. pop}ifelse fMNg{{neg}fmcp}if bind systemdict/setscreen get exec}{/fmBS fmXD
  184. /fM1B 0 def/fM0B 0 def freq 0 fMa2 currentmatrix 1 get 0 ne{90 add/pflipx
  185. sflipx 1 fmgF def/pflipy sflipy 2 fmgF def}{/pflipx sflipx 0 fmgF def/pflipy
  186. sflipy 3 fmgF neg def}ifelse{pflipy mul/yy fmXD pflipx mul/xx fmXD/xindex xx 1
  187. add 2 div 8 mul cvi def/yindex yy 1 add 2 div 8 mul cvi def fmBS yindex xindex
  188. 8 idiv add get 1 7 xindex 8 mod sub bitshift and 0 ne fMNg{not}if{/fM1B fM1B 1
  189. add def 1}{/fM0B fM0B 1 add def 0}ifelse}setscreen fM0B fM0B fM1B add div fMNg{
  190. 1.0 exch sub}if}ifelse/fMCG exch def/fMGM F def fmCC}}{/fMPC 8 dict def{dup
  191. fMPC exch known{fMPC exch get}{dup fMPD/fmBS 3 -1 roll put fMPD matrix
  192. makepattern dup fMPC 4 -1 roll 3 -1 roll put}ifelse/fMCG 0 def/fMPt exch def
  193. /fMGM F def fmCC}}ifelse FmBD/fmgr{fMGM not{/fMGM T def fML1{fMPH fmSH}if}if
  194. /fMCG exch def fmCC}FmBD/FmP{fMFl exch get dup type/stringtype eq{fmPM}{fmgr}
  195. ifelse}FmBD/FmK{fMCK astore pop/fMBM F def fmCC}FmBD/FmFB{0 0 0 1 0 0 0 fMCK
  196. astore pop/fMCG 0 def/fMBM T def fmCC}FmBD/fMOx matrix def fMOx currentmatrix
  197. pop/FmSO{/FmOs save def fmSM fMOx setmatrix}FmBD/FmIO{fmRM}FmBD/FmEO{FmOs
  198. restore}FmBD/fm3R[{.3 mul add 1}bind{.59 mul add 2}bind{.11 mul add round cvi
  199. fMs exch fMi exch put/fMi fMi 1 add def 0 0}bind]def/fm31{/fMi 0 def 0 exch 0
  200. exch{exch fm3R exch get exec}forall pop pop fMs}FmBD fML1{/Fmi{save userdict
  201. /fM7 3 -1 roll put/fM9 F def{{dup length 1 sub/fMGL fmXD/fMBC fmXD/fMNC fmXD
  202. /fMRC fmXD/fMGC fMGL 1 add array def/setcolortransfer where{pop
  203. currentcolortransfer/gryt fmXD/blut fmXD/grnt fmXD/redt fmXD 0 1 fMGL{/fMIx
  204. fmXD/fMUC 1 fMRC fMIx get sub def/fMUM 1 fMNC fMIx get sub def/fMUY 1 fMBC fMIx
  205. get sub def/fMk fMUC fMUM fmin fMUY fmin def/FmU fMk currentundercolorremoval
  206. exec def fMRC fMIx 1 0 fMUC FmU sub fmax sub redt exec put fMNC fMIx 1 0 fMUM
  207. FmU sub fmax sub grnt exec put fMBC fMIx 1 0 fMUY FmU sub fmax sub blut exec
  208. put fMGC fMIx 1 fMk currentblackgeneration exec sub gryt exec put}for{fMGL mul
  209. cvi fMRC exch get}{fMGL mul cvi fMNC exch get}{fMGL mul cvi fMBC exch get}{fMGL
  210. mul cvi fMGC exch get}setcolortransfer{pop 0}setundercolorremoval{}
  211. setblackgeneration/fM9 T def}{0 1 fMGL{fMGC exch dup dup fMRC exch get .3 mul
  212. exch dup fMNC exch get .59 mul exch fMBC exch get .11 mul add add put}for{fMGL
  213. mul cvi fMGC exch get}currenttransfer fmcp settransfer}ifelse}{dup length 1 sub
  214. /fMGL fmXD/fMGC fmXD{fMGL mul cvi fMGC exch get}currenttransfer fmcp
  215. settransfer}ifelse}{{{1 exch sub}currenttransfer fmcp settransfer}if}ifelse/fM5
  216. fmXD/fM8 fmXD/fM6 fmXD/fM3 fmXD/fM4 fmXD translate rotate scale{-1 1 scale}if
  217. /fM18 fM8 string def fM4 fM3 fM6[fM4 0 0 fM3 fM4 2 div fM3 2 div]{currentfile
  218. fM18 fM5{readstring}{readhexstring}ifelse pop}fM9{{fM18}{fM18}T 3 colorimage}{
  219. fm_i}ifelse fM7 restore}FmBD}{/Fmi{save userdict/fM7 3 -1 roll put/fM9 F def{{
  220. dup length 1 sub/fMGL fmXD/fMBC fmXD/fMNC fmXD/fMRC fmXD[/Indexed/DeviceRGB
  221. fMGL{dup fMRC exch get exch dup fMNC exch get exch fMBC exch get}]setcolorspace
  222. }{dup length 1 sub/fMGL fmXD/fMGC fmXD[/Indexed/DeviceGray fMGL{fMGC exch get}]
  223. setcolorspace}ifelse}{1 4 index bitshift 1 sub/fMGL fmXD[/Indexed/DeviceGray
  224. fMGL 5 -1 roll{{fMGL div 1 exch sub}}{{fMGL div}}ifelse]setcolorspace}ifelse
  225. /fM5 fmXD/fM8 fmXD/fM6 fmXD/fM3 fmXD/fM4 fmXD translate rotate scale{-1 1 scale
  226. }if/fM18 fM8 string def 7 dict begin/ImageType 1 def/Width fM4 def/Height fM3
  227. def/ImageMatrix[fM4 0 0 fM3 fM4 2 div fM3 2 div]def/DataSource{currentfile fM18
  228. fM5{readstring}{readhexstring}ifelse pop}def/BitsPerComponent fM6 def/Decode[0
  229. fMGL]def currentdict end fm_i fM7 restore}FmBD}ifelse/Fmci{save userdict/fM7 3
  230. -1 roll put/fM5 fmXD/fM8 fmXD/fM6 fmXD/fM3 fmXD/fM4 fmXD/fM18 fM8 string def
  231. /fMs fM18 0 fM18 length 3 idiv getinterval def translate rotate scale{-1 1
  232. scale}if fM4 fM3 fM6[fM4 0 0 fM3 fM4 2 div fM3 2 div]fMCl{{currentfile fM18 fM5
  233. {readstring}{readhexstring}ifelse pop}F 3 colorimage}{{currentfile fM18 fM5{
  234. readstring}{readhexstring}ifelse pop fm31}fm_i}ifelse fM7 restore}FmBD fML1{
  235. /fmAn{transform round .5 sub exch round .5 sub exch itransform}FmBD/fmAc{
  236. transform round 1.5 sub exch round 1.5 sub exch itransform}FmBD/fmDn{dtransform
  237. round exch round exch idtransform}FmBD/fmLn{0 dtransform exch cvi 2 idiv 2 mul
  238. .1 add exch idtransform pop}FmBD/FmCv{fmDn 6 2 roll fmDn 6 2 roll fmDn 6 2 roll
  239. rcurveto}FmBD}{T setstrokeadjust/fmAn{}FmBD/fmAc{}FmBD/fmDn{}FmBD/fmLn{}FmBD
  240. /FmCv{rcurveto}FmBD}ifelse/FmM{fmAn moveto}FmBD/M{moveto}FmBD/N{0 rmoveto}FmBD
  241. /S{fm_s}FmBD/A{0 exch fm_a}FmBD/W{0 exch 32 exch fm_w}FmBD/X{0 exch 0 32 5 2
  242. roll fm_y}FmBD/fmQP{fML1 fMGM or not{FmG dup 1 fm_g exec FmR}if exec}FmBD/FmB{
  243. newpath fmAn moveto}FmBD/FmL{rlineto}FmBD/FmAL{fmAn lineto}FmBD/FmSo{fmLn
  244. setlinewidth setlinecap{fm_t}fmQP 0 0 moveto}FmBD/FmS{fmLn setlinewidth
  245. closepath{fm_t}fmQP 0 0 moveto}FmBD/FmDS{fmLn setlinewidth setlinecap{closepath
  246. }if setdash{fm_t}fmQP[]0 setdash 0 0 moveto}FmBD/FmFl{FmG{fm_e}fmQP FmR}FmBD
  247. /fmq{fmDn 4 2 roll fmAn newpath moveto 1 index 0 rlineto 0 exch rlineto neg 0
  248. rlineto closepath}FmBD/FmqP{fmq fmLn setlinewidth{fm_t}fmQP 0 0 moveto}FmBD
  249. /FmqF{fmq FmG{fm_f}fmQP FmR}FmBD/FmKp{{currentpoint}stopped{F 5 1 roll}{T 7 3
  250. roll}ifelse fmDn 4 2 roll fmAn newpath moveto 1 index 0 rlineto 0 exch rlineto
  251. neg 0 rlineto closepath clip{moveto}{newpath}ifelse}FmBD/FmKb{{currentpoint}
  252. stopped}FmBD/FmKe{clip{newpath}{moveto}ifelse}FmBD/FmAF{FmG newpath fmAn
  253. translate not{0.0 0.0 moveto}if rotate fmDn scale 0.0 0.0 1.0 5 3 roll arc
  254. closepath{fm_f}fmQP FmR}FmBD/FmAP{FmG{setdash}if fmLn setlinewidth setlinecap
  255. fmSM newpath 2 index 2 div add exch 3 index 2 div sub exch fmAn 2 index 2 div
  256. sub exch 3 index 2 div add exch translate rotate scale 0.0 0.0 1.0 5 3 roll
  257. exch arcn{closepath}if fmRM{fm_t}fmQP FmR}FmBD/FmST{FmG fmAn translate .3 fmLn
  258. setlinewidth 0 setlinecap 0 setlinejoin newpath 1 fm_g 0 0 10 0 360 arc fm_f 0
  259. fm_g 0 0 10 0 360 arc fm_t 36{1 0 moveto 0 0 10 -2.5 2.5 arc fm_f 10 rotate}
  260. repeat FmR}FmBD/FmSL{FmG fmAn translate .25 fmLn setlinewidth 0 setlinecap 0
  261. setlinejoin newpath 1 fm_g 0 0 10 0 360 arc fm_f 0 fm_g 10 .5 fmLn neg .1{0 0 3
  262. -1 roll 0 360 arc fm_t}for FmR}FmBD/FrameEr where{pop}{userdict/FrameEr(\000)
  263. put}ifelse/fMSJ 100 string def/fmXC{userdict/fMSi 2 index put end{
  264. countdictstack userdict begin/showpage{}def/FmDictStackDepth exch def count
  265. /FmStackDepth exch def}if userdict/fMSuccessfull false put currentfile cvx
  266. stopped pop fMSuccessfull not{/$brkpage where{stop}if systemdict/clear get exec
  267. userdict/FrameEr get 0 1 put FrameMacDict begin FmG systemdict/initmatrix get
  268. exec 0 systemdict/setgray get exec clippath{pathbbox}stopped{100 100 512 692}if
  269. exch pop add 2. div newpath moveto(Courier-BoldOblique)findfont 18 scalefont
  270. setfont FrameEr1 fm_s( \()fm_s $error begin errorname 20 string cvs fm_s(, )
  271. fm_s/command load 128 string cvs fm_s end(\))fm_s FrameEr2 print flush
  272. FrameMacDict/fMSJ get{dup currentfile exch{readline}stopped{pop exch pop T}if
  273. not{exit}if(EndFrame4Picture)eq{exit}if}loop grestore end}if userdict
  274. /fMSuccessfull false put FrameMacDict/fmIR get exec}fmBi def/FmEP{save userdict
  275. /fM7 3 -1 roll put setoverprint{fMN FmSP}if[/fMef/fMet/fMeh/fMew/fMey/fMex/fMei
  276. /fMej/fMek/fMel]{fmXD}forall fMex fMey translate fMet rotate fMew fMeh scale
  277. fMef{-1 1 scale}if 1 fMej fMel sub div 1 fMek fMei sub div scale fMej fMel add
  278. 2 div neg fMei fMek add 2 div neg translate newpath fMel fMek moveto fMel fMei
  279. lineto fMej fMei lineto fMej fMek lineto closepath clip newpath T fmXC}FmBD
  280. /FmPI{newpath 0 0 moveto F fmXC}FmBD/FmPc{save userdict/fM7 3 -1 roll put
  281. newpath 3 index neg 3 index neg translate 1 -1 scale 0.0 0.0 moveto T fmXC}FmBD
  282. /fmIR{fMSi{fM7 type/savetype eq{end/FmDictStackDepth where{pop countdictstack
  283. FmDictStackDepth sub dup 0 gt{{end}repeat}{pop}ifelse count FmStackDepth sub
  284. dup 0 gt{{pop}repeat}{pop}ifelse}if fM7 restore}if}if FrameMacDict begin}FmBD
  285. userdict/EndFrame4Picture{userdict/fMSi 3 -1 roll put userdict/fMSuccessfull
  286. true put stop}fmBi put/alphaimage where{pop}{/alphaimage{1 ne{limitcheck}if not
  287. {limitcheck}if pop image}fmPU}ifelse/fmDE{systemdict/initgraphics get exec
  288. clippath{pathbbox}stopped{100 100 512 692}if exch pop add 2. div newpath moveto
  289. (Courier-BoldOblique)findfont 18 scalefont setfont currentpoint 2 copy FrameEr3
  290. fm_s 20 sub 2 copy moveto FrameEr4 fm_s 20 sub 2 copy moveto(\()fm_s statusdict
  291. /jobname get fm_s(\))fm_s 20 sub moveto FrameEr5 fm_s showpage}FmBD/cd where{
  292. dup/cd get/FmRealcd fmXD/cd{FrameMacDict begin FrameEr 0 get 0 ne{fmDE}if
  293. /FmRealcd load end exec}fmBi put}{/endp where{dup/endp get/fMRE fmXD/endp{
  294. FrameMacDict/fMRE get exec FrameEr 0 get 0 ne{FrameMacDict begin currentfile
  295. fMSJ{readline}stopped{pop exch pop true}if pop(%%Trailer)eq{fmDE}if end}if}fmBi
  296. put}if}ifelse systemdict/setpacking known{fMSP setpacking}if end
  297. %%EndProcSet
  298. %%FRMSetup
  299. FrameMacDict begin/FrameEr1(PostScript error)def/FrameEr2
  300. (A PostScript error occurred. FrameMaker is attempting recovery.)def/FrameEr3
  301. (FrameMaker has detected one or more)def/FrameEr4
  302. (PostScript errors in this document.)def/FrameEr5(Please check your output.)def
  303. end
  304. %%FRMEndSetup
  305.